﻿#r @"C:\DEV\FSharp\CmdArgs\CmdArgs\bin\Debug\CmdArgs.dll"

open System
open CmdArgs

let argSpec = [|
    ArgInfo("-h", ArgType.Unit (fun _ -> ()), "run harvest")
    ArgInfo("-d", ArgType.Int (fun _ -> ()), "delay between same site requests and other varying information regarding additional argument parsing metric configurations pay-per level basis")
    ArgInfo("-w", ArgType.String (fun _ -> ()), "web cache directory")
    ArgInfo("-o", ArgType.String (fun _ -> ()), "output file")
    ArgInfo("-f", ArgType.Float (fun _ -> ()), "event offset multiplier")
    |]
let argParser = ArgParser(argSpec, fun s -> printfn "%s" s)
printf "%s\n" <| argParser.Usage()
try argParser.Parse()
with e -> eprintfn "%s" e.Message
Console.Read() |> ignore

